home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TSPA3460 / TSUNTC.INT < prev    next >
Text File  |  1994-08-16  |  2KB  |  58 lines
  1. {$B-,D-,F-,I+,N-,R-,S+,V+}
  2.  
  3. (*
  4. Timo Salmi UNiT C
  5. A Turbo Pascal unit for playing, and other routines needing Ctr
  6. All rights reserved 26-Jul-89,
  7. Updated 19-Aug-89, 12-Nov-89, 14-Jul-90, 26-Aug-92, 30-May-93
  8.  
  9. This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
  10. NON-INSTITUTIONAL purposes, provided it is not changed in any way, and
  11. that a proper attribution is made. For ANY other usage, such as use in a
  12. business enterprise or at a university, contact the author for the terms
  13. of registration.
  14.  
  15. The units are under development. Comments and contacts are solicited. If
  16. you have any questions, please do not hesitate to use electronic mail for
  17. communication.
  18. InterNet address: ts@uwasa.fi
  19.  
  20. The author shall not be liable to the user for any direct, indirect or
  21. consequential loss arising from the use of, or inability to use, any unit,
  22. program or file howsoever caused. No warranty is given that the units and
  23. programs will work under all circumstances.
  24.  
  25. Timo Salmi
  26. Professor of Accounting and Business Finance
  27. Faculty of Accounting & Industrial Management; University of Vaasa
  28. P.O. BOX 297, FIN-65101 Vaasa, Finland
  29. *)
  30.  
  31. unit TSUNTC;
  32.  
  33. (* ======================================================================= *)
  34.                           interface
  35. (* ======================================================================= *)
  36.  
  37. uses Dos, Crt;
  38.  
  39. (* Play one note
  40.    The strings (pardon the pun) to play the notes are:
  41.    c,c#,d,d#,e,f,f#,g,g#,a,a#,b
  42.    The middle a-flat (440Hz) is in octave 4
  43. *)
  44. procedure PLAYNOTE (note : string; octave : integer; duration : integer);
  45.  
  46. (* Reverse TextColor and TextBackround, that is toggle the colors *)
  47. procedure REVCOLOR;
  48.  
  49. (* Enable intensity instead of blink. Facilitates the bright background
  50.    colors for TextBackground by giving up the possibility of blinking
  51.    in TextColor. See TSUNTC.TST for an example of the usage *)
  52. procedure HIBACK;
  53.  
  54. (* Enable blink, disable bright background. Note that to use HIBACK and/or
  55.    BLBACK you must have an EGA adapter or beyond. *)
  56. procedure BLBACK;
  57.  
  58.